﻿Imports CrystalDecisions.Shared
Imports CrystalDecisions.CrystalReports.Engine
Imports BusinessLogicLayer
Imports BE = BusinessEntities

    Partial Class repServicicos
        Inherits System.Web.UI.Page

        Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
            Dim reporte As New ReportDocument
        reporte.Load(Server.MapPath("repServicicos.rpt"))
            'Instanciamos la clase
        Dim capanegocios As New ServicioBL
            'Instanciamos la entidad 
        Dim objeto As New BE.ServicioBE

            'Establecemos el origen de datos del reporte
        reporte.SetDataSource(capanegocios.ListarServicios.Tables("LosServicios"))
            'Establecemos el reporte a mostrar en el visor
        'crvRepServicicos.ReportSource = reporte
        'crvRepServicicos.RefreshReport()
            'Liberamos recursos
            capanegocios = Nothing
            objeto = Nothing
        End Sub
    End Class